home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / main.dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  474 b   |  15 lines
  1. on showalart alartname
  2.   puppetSprite(21, 1)
  3.   set the type of sprite 21 to 1
  4.   set the ink of sprite 21 to 0
  5.   set the foreColor of sprite 21 to 255
  6.   set the backColor of sprite 21 to 0
  7.   set castname to buttonname & ",down"
  8.   set the castNum of sprite 21 to the number of member castname
  9.   set the locH of sprite 21 to h + offset
  10.   set the locV of sprite 21 to v
  11.   updateStage()
  12.   showpopmenu(buttonname, h, v, offset)
  13.   set popposition to getpopposition(buttonname)
  14. end
  15.